STFSolid.add

STFSolid.add adds the instance of an STFSolid to the current design file.

Dim slab As new STFSolid

Dim pnt As MBEPoint

Dim elevation As Double

Dim thickness As Double

Dim I As Double

Dim w As Double

Dim status As Integer

Dim points(4) As MBEPoint

points(0).x = pnt.x - w/2

points(0).y = pnt.y - l/2

points(0).z = elevation

points(1).x = points(0).x

points(1).y = points(0).y + l

points(1).z = elevation

points(2).x = points(1).x + w

points(2).y = points(1).y

points(2).z = elevation

points(3).x = points(2).x

points(3).y = points(2).y - 1

points(3).z = elevation

points(4).x = points(0).x

points(4).y = points(0).y

points(4).z = elevation

slab.height = height

status = slab.setVertices(points)

status = slab.add()

See also:

"STFSolid.read", "STFSolid.delete", "STFSolid.update"